home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 32
/
Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso
/
Aminet
/
biz
/
patch
/
PGSUniFilter16.lha
/
PageStream_Filter
/
Install-Filter
< prev
next >
Wrap
Text File
|
1999-05-13
|
4KB
|
186 lines
; $VER: Universal V1.6 (01.05.99)
; Copyright (C)1997-99 Wolf Faust
(complete 0)
(delopts "oknodelete" "force" "askuser")
(set @default-dest "")
(set #wichproggy
(cat "\n\nPlease select the printing program you own"
))
(set #proggyhelp
(cat "This disk can install the PageStream filter for "
"CanonStudio (registered) or Studio users.\n"
"Please select the program you own now.\n\n"
))
(set #proggystudio
(cat "Studio"
))
(set #proggycanon
(cat "CanonStudio"
))
(set #nopgs
(cat "Sorry, I can't locate the \"Pagestream3:SoftLogik/Filters\" or \"Pagestream4:SoftLogik/Filters\" drawer containing the PageStream "
"graphics import filters. So I can't install the PageStream filter. Please check your "
"PageStream installation and try again later."
))
;--------------
(set #abortunpack
(cat "\nError occured while running the installation decompression program. "
"The error occured during decompressing of the file:\n\n\"%s\"\n\n"
))
;-------
(set #badfiltversion
(cat "I did not install the wanted filter for "
"%s. A newer filter V%ld.%ld is already installed. "
))
;-------
(set #nopgsfilt
(cat "I can't find the drawer %sSoftLogik/Filters for installing "
"the Universal filter to."
))
;-------
(set #waitmsg
(cat "\n\n\n\nWorking. Please wait..."
))
(complete 10)
;*** German
(if (= @language "deutsch")
(
(set #wichproggy
(cat "\n\nBitte wählen Sie das Programm, das Sie besitzen.\n"
))
(set #proggyhelp
(cat "Dieses Installationsprogramm kann sowohl für CanonStudio als auch Studio\n"
"Besitzer den Filter installieren. Bitte wählen Sie, welches Programm "
"Sie besitzen.\n\n"
))
(set #proggystudio
(cat "Studio"
))
(set #proggycanon
(cat "CanonStudio"
))
;--------------
(set #abortunpack
(cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
"Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
))
;--------------
(set #nopgs
(cat "Leider kann ich Ihre \"Pagestream3:SoftLogik/Filters\" oder \"Pagestream4:SoftLogik/Filters\" Schublade mit den PageStream "
"Grafikimport-Filtern nicht finden. Ich kann daher auch keinen neuen Filter installieren. "
"Bitte prüfen Sie Ihre PageStream Installation."
))
;-------
(set #badfiltversion
(cat "Der gewünschte Studio Universal Grafikimport-Filter für das Programm '%s' wurde nicht installiert, "
"da bereits ein neuerer Filter mit der Version %ld.%ld installiert ist.\n\n"
))
;-------
(set #nopgsfilt
(cat "Die Schublade %sSoftLogik/Filters kann "
"für die Installation auf Ihrem System nicht gefunden werden."
))
;-------
(set #waitmsg
(cat "\n\n\n\nIch arbeite! Bitte warten..."
))
))
(complete 40)
(set pgsdrawer "Pagestream3:")
(set guessdrawer (getassign "PageStream3" "a"))
(if (= guessdrawer "")
(
(set guessdrawer (getassign "PageStream4" "a"))
(set pgsdrawer "Pagestream4:")
))
(if (<> guessdrawer "")
(
(if (= (exists (cat pgsdrawer "SoftLogik/Filters")) 2)
(
(set ver 0)
(set rev 0)
(if (= (exists (cat pgsdrawer "SoftLogik/Filters/Universal.gfilter")) 1)
(
(set vernum (getversion (cat pgsdrawer "SoftLogik/Filters/Universal.gfilter")))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536) ) )
))
(complete 70)
(if (< ver 2)
(
(if (NOT (AND (= ver 1) (> rev 6) ))
(
(set prgm "Studio")
(if (= (exists (cat "lx")) 1)
(
(if (= (exists (cat "lxc")) 1)
(
(if (askbool (prompt (#wichproggy))
(choices #proggystudio #proggycanon)
(help (#proggyhelp))
(default 1))
(
(working #waitmsg)
(copyfiles (source "lx")
(dest "t:")
(nogauge)
)
)
(
(working #waitmsg)
(copyfiles (source "lxc")
(dest "t:")
(newname "lx")
(nogauge)
)
(set prgm "CanonStudio")
))
)
(
(copyfiles (source "lx")
(dest "t:")
(nogauge)
)
))
)
(
(set prgm "CanonStudio")
(copyfiles (source "lxc")
(dest "t:")
(newname "lx")
(nogauge)
)
))
(working #waitmsg)
(set exerr (run (cat "T:lx x PageStream3/Universal.pkd " pgsdrawer "SoftLogik/Filters")))
(if (> exerr 0)
(
(abort (#abortunpack "PageStream3/Universal.pkd"))
))
(working #waitmsg)
)
(
(abort (#badfiltversion "PageStream 3.x/4.x" ver rev))
))
)
(
(abort (#badfiltversion "PageStream 3.x/4.x" ver rev))
))
)
(
(abort #nopgsfilt)
))
)
(
(abort #nopgs)
))
(complete 100)